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-- file DITypeDefs.Mesa 

-- last modified by Barbara, June 21, 1978 11:06 AM 

DIRECTORY 

DIDefs: FROM "didefs" USING [ESPointer, predef inedType , thereESPointer], 
SymbolTableDefs: FROM "symbol tabledefs" USING [SymbolTabl eBase] , 
SymDefs: FROM "symdefs" USING [CSEIndex, SEIndex]; 

DITypeDefs: DEFINITIONS ■ 
BEGIN 

thereESPointer: TYPE = DIDefs . thereESPointer ; 
ESPointer: TYPE » DIDefs .ESPointer ; 

SymbolTableBase: TYPE => SymbolTableDefs. SymbolTableBase; 
SEIndex: TYPE = SymDefs .SEIndex; 

-- type manipulation 

TypelU: PROCEDURE [ESPointer] RETURNS [BOOLEAN]; 
TypelUP: PROCEDURE [ESPointer] RETURNS [BOOLEAN]; 
TypeArray: PROCEDURE [ESPointer] RETURNS [BOOLEAN]; 
TypeArrayDesc: PROCEDURE [ESPointer] RETURNS [BOOLEAN]; 
TypeBoolean: PROCEDURE [ESPointer] RETURNS [BOOLEAN]; 
TypeCharacter: PROCEDURE [ESPointer] RETURNS [BOOLEAN]; 
Typelnteger: PROCEDURE [ESPointer] RETURNS [BOOLEAN]; 
TypeLong: PROCEDURE [ESPointer] RETURNS [BOOLEAN]; 
TypePointer: PROCEDURE [ESPointer] RETURNS [BOOLEAN]; 
TypeProcedure: PROCEDURE [ESPointer] RETURNS [BOOLEAN]; 
TypeRecord: PROCEDURE [ESPointer] RETURNS [BOOLEAN]; 
TypeString: PROCEDURE [ESPointer] RETURNS [BOOLEAN]; 
TypeUnspec: PROCEDURE [ESPointer] RETURNS [BOOLEAN]; 

StrippedType: PROCEDURE [ESPointer] RETURNS [SymDefs .CSEIndex] ; 

AssignableTypes: PROCEDURE [Ins, rhs: ESPointer] RETURNS [BOOLEAN]; 
EquivalentTypes: PROCEDURE [ESPointer, ESPointer] RETURNS [BOOLEAN]; 

DereferencePointer : PROCEDURE [thereESPointer] RETURNS [thereESPointer]; 

SeiPType: PROCEDURE [type: DIDefs .predef inedType, stbase: SymbolTableBase] 

RETURNS [sei: SEIndex]; 
FindContextZeroId: PROCEDURE [stbase: SymbolTableBase, id: STRING] 

RETURNS [sei: SEIndex]; 

Seilnteger: SEIndex = LOOPHOLE[0]; 
SeiCardinal: SEIndex = LOOPHOLE[lj; 
SeiCharacter: SEIndex - LOOPHOLE[2]; 
SeiBoolean: SEIndex « LOOPHOLE[3]; 
SeiString: SEIndex = L00PH0LE[4]; 
SeiUnspecified: SEIndex = L00PH0LE[5]; 
SeiLonglnteger: SEIndex = L00PH0LE[6]; 

END. .. 


